执行几组语句之一，具体取决于表达式的值。

选择 Casetestexpression [ Caseexpressionlist-n [ statements-n ]] [ Case Else [ elsestatements ]] End Select

Select Case 语句语法包含以下部分：

以下一个或多个窗体的分隔列表： expression、 expressionToexpression、 Iscomparisonoperator表达式。

To关键字指定值的范围。 如果使用 To 关键字，则更小的值必须在 To 的前面显示。

将 Is 关键字与比较运算符一起使用（Is 和 Like 一起使用的情况除外）可指定值的范围。 如果未提供 Is 关键字，则将自动插入它。

如果 testexpression 与任何 Case表达式列表表达式匹配，则 Case 子句后面的语句将执行到下一个 Case 子句，或者，对于最后一个子句，将执行到 End Select。 然后，控制权将传递到 End Select 后面的语句。 如果 testexpression 与多个 Case 子句中的 expressionlist 表达式匹配，则仅执行第一个匹配项后面的语句。

Case Else 子句用于指示在任何其他 Case 选择中的 testexpression 和 expressionlist 之间未找到匹配项时要执行的 elsestatements。 虽然不要求这样做，但最好是在 Select Case 块中包含 Case Else 语句来处理意外的 testexpression 值。 如果没有 Case表达式列表 与 testexpression 匹配，并且没有 Case Else 语句，则继续在 结束选择后的语句处执行。

在每个 Case 子句中使用多个表达式或范围。 例如，以下行有效：

注意

Is 比较运算符与 Select Case 语句中使用的 Is 关键字不相同。

您还可以为字符串指定范围和多个表达式。 在以下示例中， Case 匹配完全等于 everything的字符串、按字母顺序排列在 和 soup 之间的nuts字符串，以及 的当前值TestItem：

Select Case 语句可以嵌套。 每个嵌套 的 Select Case 语句都必须具有匹配的 End Select 语句。

此示例使用 Select Case 语句计算变量的值。 第二个 Case 子句包含要计算的变量值，因此仅执行与其关联的语句。

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。